home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / lib / rom-civ-war.g < prev    next >
Text File  |  1995-05-04  |  4KB  |  174 lines
  1. (game-module "rom-civ-war"
  2.   (title "Roman Civil War")
  3.   (blurb "The Civil War: Caesar vs. Pompeius, 48 BC")
  4.   (base-module "roman")
  5.   (instructions 
  6.    ("Cross the sea to destroy your enemy at once," 
  7.     "or build an empire and wage a war of attrition."
  8.     ))
  9.   (notes 
  10.    ("Situation in Jan 48 BC (706 AUC)."
  11.     ""
  12.     "Caesar has more legions,"
  13.     "Pompeius has more auxiliaries and a bigger fleet."
  14.     "Other sides should be machine-played."
  15.     ""
  16.     "Massimo Campostrini (campo@sunthpi3.difi.unipi.it)"
  17.     ))
  18.   )
  19.  
  20. ; double production times of "roman"
  21. ;            i  c  a  L  B  T  U  S  / X V * @ 
  22. (add u* cp (12 30 20 40 32 48 24 20 16 1 1 1 1))
  23.  
  24. (set synthesis-methods nil)
  25. (add u* start-with 0)
  26. (side 1 (name "Caesar") (class "roman")  (color "blue"))
  27. (side 2 (name "Pompeius") (class "roman")  (color "red"))
  28. (side 3 (name "Parthia") (adjective "Parthian")
  29.       (class "civilized") (color "dim gray"))
  30. (side 4 (name "Aegyptus") (adjective "Aegyptian") 
  31.       (class "roman") #| yes, I do mean Roman |# (color "violet red"))
  32.  
  33. (set see-all true) ; until variants impled when "opening".
  34.  
  35. (include "t-roman")
  36.  
  37. (set initial-date "Jan 706") ; Ab Urbe Condita, i.e. 48 BC
  38.  
  39. ; ---------- Caesar
  40.  
  41. (unit "Brundisium" (s 1)) ; @ 107,40
  42. (unit "Tarentum" (s 1))   ; @ 104,40
  43. (L 109 39 0 (s 1))
  44. (L 109 39 0 (s 1))
  45. (L 109 38 0 (s 1))
  46. (L 109 38 0 (s 1))
  47. (L 105 41 0 (s 1))
  48. (L 105 41 0 (s 1))
  49. (L 105 40 0 (s 1))
  50. (L 105 40 0 (s 1))
  51. (L 106 40 0 (s 1))
  52. (L 106 40 0 (s 1))
  53. (L 108 39 0 (s 1))
  54. (L 108 39 0 (s 1))
  55. (c 103 41 0 (s 1))
  56. (c 103 41 0 (s 1))
  57. (c 104 41 0 (s 1))
  58. (c 104 41 0 (s 1))
  59. (i 107 39 0 (s 1))
  60. (i 107 39 0 (s 1))
  61. (i 107 39 0 (s 1))
  62. (i 107 39 0 (s 1))
  63. (a 103 41 0 (s 1))
  64. (a 103 41 0 (s 1))
  65. (a 104 41 0 (s 1))
  66. (a 104 41 0 (s 1))
  67. (T 106 39 0 (s 1))
  68. (T 106 39 0 (s 1))
  69. (T 105 39 0 (s 1))
  70. (T 105 39 0 (s 1))
  71. (B 104 40 0 (s 1))
  72. (B 104 40 0 (s 1))
  73. (B 105 39 0 (s 1))
  74. (B 106 38 0 (s 1))
  75. (B 106 39 0 (s 1))
  76. (B 107 40 0 (s 1))
  77. (U 104 40 0 (s 1))
  78. (U 104 40 0 (s 1))
  79. (U 104 40 0 (s 1))
  80. (U 105 39 0 (s 1))
  81. (U 106 39 0 (s 1))
  82. (U 107 40 0 (s 1))
  83.  
  84. ; ---------- Pompeius
  85.  
  86. (unit "Dyrrachium" (s 2)) ; @ 109,44
  87. (unit "Nicopolis" (s 2)) ;  @ 115 37
  88. ; there are two oppida named Nicopolis, this gets the right one
  89. (L 109 45 0 (s 2))
  90. (L 110 43 0 (s 2))
  91. (L 110 42 0 (s 2))
  92. (L 111 41 0 (s 2))
  93. (L 111 40 0 (s 2))
  94. (L 112 40 0 (s 2))
  95. (L 113 39 0 (s 2))
  96. (L 113 38 0 (s 2))
  97. (L 114 38 0 (s 2))
  98. (i 110 43 0 (s 2))
  99. (i 110 42 0 (s 2))
  100. (i 111 41 0 (s 2))
  101. (i 111 40 0 (s 2))
  102. (i 112 40 0 (s 2))
  103. (i 113 39 0 (s 2))
  104. (i 113 38 0 (s 2))
  105. (i 114 38 0 (s 2))
  106. (a 110 43 0 (s 2))
  107. (a 110 42 0 (s 2))
  108. (a 111 41 0 (s 2))
  109. (a 111 40 0 (s 2))
  110. (a 112 40 0 (s 2))
  111. (a 113 39 0 (s 2))
  112. (a 113 38 0 (s 2))
  113. (a 114 38 0 (s 2))
  114. (c 111 43 0 (s 2))
  115. (c 111 42 0 (s 2))
  116. (c 112 41 0 (s 2))
  117. (c 113 40 0 (s 2))
  118. (c 114 39 0 (s 2))
  119. (c 115 38 0 (s 2))
  120. (T 110 40 0 (s 2))
  121. (T 110 40 0 (s 2))
  122. (T 111 39 0 (s 2))
  123. (T 111 39 0 (s 2))
  124. (T 112 38 0 (s 2))
  125. (T 112 38 0 (s 2))
  126. (T 113 37 0 (s 2))
  127. (T 113 37 0 (s 2))
  128. (B 110 40 0 (s 2))
  129. (B 110 40 0 (s 2))
  130. (B 111 39 0 (s 2))
  131. (B 111 39 0 (s 2))
  132. (B 112 38 0 (s 2))
  133. (B 112 38 0 (s 2))
  134. (B 113 37 0 (s 2))
  135. (B 113 37 0 (s 2))
  136. (U 109 44 0 (s 2))
  137. (U 109 44 0 (s 2))
  138. (U 109 44 0 (s 2))
  139. (U 115 37 0 (s 2))
  140. (U 112 39 0 (s 2))
  141. (U 112 39 0 (s 2))
  142. (U 112 39 0 (s 2))
  143. (U 112 39 0 (s 2))
  144.  
  145. #|
  146. ; Pompeians in 49 BC
  147. ; Afranius
  148. (L 56 44 0 (s 2))
  149. (L 57 44 0 (s 2))
  150. (L 58 43 0 (s 2))
  151. (i 56 44 0 (s 2))
  152. (i 56 44 0 (s 2))
  153. (i 57 44 0 (s 2))
  154. (i 57 44 0 (s 2))
  155. (c 58 43 0 (s 2))
  156.  
  157. ; Varro
  158. (L 38 40 0 (s 2))
  159. (L 39 40 0 (s 2))
  160. (i 38 40 0 (s 2))
  161. (i 39 40 0 (s 2))
  162. (c 39 40 0 (s 2))
  163.  
  164. ; Petreius
  165. (L 46 32 0 (s 2))
  166. (L 46 33 0 (s 2))
  167. (i 46 32 0 (s 2))
  168. |#
  169.  
  170. ; ---------- interested third parties
  171. (unit "Ecbatana" (s 3))
  172.  
  173. (unit "Alexandria" (s 4))
  174.